#!/usr/bin/perl

print"Content-type:text/html\n\n";
print"<title>Windows环境变量</title>";
print"<body>恭喜你的website已经成功<br>";
foreach $key(sort keys %ENV){
   print"$key=$ENV{$key}<br>"; 
}
print "</body>";

